10 A=A+1:IFA=1THENLOAD"GDM.OBJ",8,1
15 B=B+1:IFB=1THENLOAD"GDM.CODES",8,1
16 REM NEU
20 BM=49664:FORT=0TO7:POKE49438+T,2^T:NEXT:POKE53269,0:POKE53280,0:POKE646,1
25 POKE53281,0:BUFF=BM+2:POKE53272,23
30 POKE657,128:PRINT"[147][199]EOS [198]ILE [204]INKER  VON [212]HORSTEN [208]ETROWSKI[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
35 INPUT" [218]U LINKENDES [198]ILE";SF$:FF=0
36 CLOSE15:CLOSE2:OPEN15,8,15,"IO":OPEN2,8,2,"#"
40 IFIN$="$"THENSF$=CHR$(0)
45 GOSUB210:IFFF=0THEN35
50 PRINT"[198][201][204][197]-[197][201][206][212][210][193][199]:[146]":IFIT<>0THEN75
55 IT=1:IS=0
60 PRINT#15,"B-A 0";IT;IS:INPUT#15,REP,DUMMY$,IT,IS
61 IFREP=0THENIT=1:IS=0:GOTO75
62 IFIT =18THENIT=19:IS=0:GOTO60
65 IFREP=65ANDIT=0THENPRINT"-[206]ICHTS MEHR FREI !":END
75 POKERB+21,0:POKERB+19,IT:POKERB+20,IS:PRINT"    [199][197][207][211] [198]ILETYP :"
80 PRINT"0  [206]ICHT [199][197][207][211]",,,"1  [194]ASIC",,,,"2  [193]SSEMBLER",,,"4  [211]YSTEM-[196]ATEI",,,
85 PRINT"5  [196]ESK[164][193]CCESSORY",,,"6  [193]PPLIKATION",,,"8  [198]ONT-[198]ILE",,,
90 PRINT"9  [196]RUCKERTREIBER",,,"10 [197]INGABETREIBER"
95 AD=RB+22:PRINT" [201]HRE [215]AHL";:GOSUB180:GT=VAL(IN$)
100 AD=RB+23:OU$="[211]CHREIBJAHR":GOSUB205:OU$="     -MONAT":GOSUB205
105 OU$="       -TAG":GOSUB205:OU$="    -STUNDE":GOSUB205
110 OU$="    -MINUTE":GOSUB205
115 PRINT#15,"B-P 2 0":SYS49193:PRINT#15,"U2:2 0";AT;AS:PRINT"[201]NFOSCHIRM"
120 PRINT#15,"U1:2 0";IT;IS:SYS49152:POKEBM,0:POKEBM+1,255:POKEBM+2,3
125 POKEBM+3,21:POKEBM+4,191:POKEBM+69,GT:POKEBM+70,0
130 FORT=0TO62:POKE832+T,PEEK(BM+5+T):NEXT:POKEBM+68,129
135 GOSUB285:PRINT"[147][193]NFANGSADRESSE";:AD=BM+71:GOSUB185:GOSUB190
140 PRINT"  [197]NDADRESSE";:AD=BM+73:GOSUB185
145 PRINT"  [211]TARTADRESSE";:AD=BM+75:GOSUB185
150 PRINT"'[195][204][193][211][211]'";:AD=BM+77:L=20:GOSUB200
155 PRINT"'[193][213][212][207][210]'";:AD=BM+97:L=19:GOSUB200
160 PRINT" '[201][206][198][207]'";:AD=BM+160:L=94:GOSUB200
165 PRINT#15,"B-P 2 0":SYS49193:PRINT#15,"U2:2 0";IT;IS:PRINT"[198]ERTIG!"
170 CLOSE2:CLOSE15:GOTO445
175 PRINT" :";:OPEN3,0,0:INPUT#3,IN$:CLOSE3:PRINT
176 IF LEFT$(IN$,1)>"$"THEN RETURN
177 DEZ=0:FOR C=1TO4:ACT=(ASC(MID$(IN$,C+1,1))AND127)-48
178 IF ACT>12 THEN ACT=ACT-7
179 DEZ=DEZ+16^(4-C)*ACT:NEXT C:IN$=STR$(DEZ):PRINT"(";IN$;" )":RETURN
180 GOSUB175:POKEAD,VAL(IN$):RETURN
185 GOSUB175:MEM=VAL(IN$)
190 B1=INT(MEM/256):B0=((MEM/256)-INT(MEM/256))*256
195 POKEAD,B0:POKEAD+1,B1:RETURN
200 GOSUB175:WE$=LEFT$(IN$,L):GOTO425
205 PRINTOU$;:GOSUB200:POKEAD,VAL(IN$):AD=AD+1:RETURN
210 AT=18:AS=1:PRINT" [196]ISK-[211]EARCH ...":FF=0
215 PRINT#15,"B-P 2 0":PRINT#15,"U1:2 0";AT;AS:SYS49152:POKE53280,0:SB=0
220 RB=32*SB+BUFF:INPUT#15,ER,ER$,ET,ES
225 IFER<>0THENPRINT"[196]ISK-[197]RROR";ER;":";ER$;ET;ES:END
230 SYS 49259,(RB+3),16,NF$:PRINT NF$:LS=LEN(SF$):RI$=RIGHT$(SF$,1)
235 IFRI$<>"*"ANDMID$(NF$,LS+1,1)<>"."THEN265
240 IFRI$="*"ANDSF$=LEFT$(NF$,LS-1)+"*"THEN250
245 IFSF$<>LEFT$(NF$,LS)THEN265
250 CN=LEN(NF$)
255 IFMID$(NF$,CN,1)="."ANDCN>0THENCN=CN-1:GOTO255
260 SF$=LEFT$(NF$,CN):IT=PEEK(RB+19):IS=PEEK(RB+20):FF=1:RETURN
265 SB=SB+1:IFSB<8THEN220
270 AT=PEEK(BUFF-2):AS=PEEK(BUFF-1):IFAT=0THENRETURN
275 GOTO215
280 B1=INT(AD/256):B0=((AD/256)-INT(AD/256))*256:RETURN
285 PRINT"[147] [201]CON [197]DIT[146]":POKE49425,32:POKE49430,42
290 SY$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
295 PRINT"  [176]"SY$"[174]"
300 AD=832:FORY=0TO20
305 PRINT"  [221]";:FORX=0TO2:SYS49407,PEEK(AD):AD=AD+1:NEXTX:PRINT"[221]":NEXTY
310 PRINT"  [173]"SY$"[189]"
315 PRINT""TAB(28);"^^^^^"
320 POKE53269,1:POKE2040,13:POKE53248,255:POKE53249,76:POKE53288,1
325 POKE53264,0:X=0:Y=0:OX=2022:OP=0:DD=1107
330 POKEOX,PEEK(OX)AND127:POKEDD,PEEK(DD)OR128
335 GET KEY$:IFKEY$=""THEN335
340 OX=DD:IFKEY$=""ANDX<23THENX=X+1
345 IFKEY$="[157]"ANDX>0 THENX=X-1
350 IFKEY$="[145]"ANDY>0 THENY=Y-1
355 IFKEY$=""ANDY<20THENY=Y+1
360 IFKEY$<>"Q"THEN370
365 FORT=0TO62:POKE49669+T,PEEK(832+T):NEXT:POKE53269,0:RETURN
370 IFKEY$<>"R"THEN390
375 POKE832,255:POKE833,255:POKE834,255:POKE893,255:POKE894,255
380 POKE892,255:FORT=835TO889STEP3
385 POKET,PEEK(T)OR128:POKET+2,PEEK(T+2)OR1:NEXT:GOTO295
390 IFKEY$="[147]"THENFORT=832TO895:POKET,0:NEXT:GOTO295
395 IFKEY$<>" "THEN415
400 IF(PEEK(BY)ANDBI)=BITHEN410
405 POKEBY,PEEK(BY)ORBI:POKEDD,170:GOTO415
410 POKEBY,PEEK(BY)AND(255-BI):POKEDD,160
415 DD=1107+Y*40+X:BY=832+(Y*3)+INT(X/8):BI=2^(7-(INT(((X/8)-INT(X/8))*8)))
420 GOTO330
425 WE$=WE$+CHR$(0):FORW=1TOLEN(WE$):WE=ASC(MID$(WE$,W,1))
430 IFWE>64ANDWE<91THENWE=WE+32:GOTO440
435 IFWE>192ANDWE<219THENWE=WE-128
440 POKEAD-1+W,WE:NEXTW:RETURN
445 PRINT" ([206])OCHMAL ODER ([197])NDE ?"
450 GET KEY$:IFKEY$=""THEN450
455 IFKEY$="N"ORKEY$="[206]"THENRUN20
460 IFKEY$="E"ORKEY$="[197]"THENEND
465 GOTO450